home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / util / misc / hcmenu.lha / HCMenu / HCMenu_Install next >
Text File  |  1997-10-14  |  10KB  |  352 lines
  1. ;HCMenu and HCMenuEditor Installscript by E. Th van den Oosterkamp
  2. ;-----------------------------------------------------------------------------
  3. (SET @app-name "HCMenu")
  4. (SET @default-dest "SYS:")
  5. (SET Result 1)
  6. (SET KickVer (GETVERSION))
  7. (SET KickVer (/ KickVer 65536))
  8. (SET NewEnvArc 1)
  9. (WELCOME    "  Welcome to the HCMenu/HCMenuEditor installation\n\n"
  10.         "     Copyright 1997 by E Th van den Oosterkamp\n\n"
  11. )
  12. ;----------------------- Opvragen van doel-directory -------------------------
  13. (SET DestDir
  14.     (ASKDIR    (prompt "Select the directory where you want to put the executables.")
  15.         (help   "In the selected directory a subdirectory with the "
  16.             "name \"HCMenu\" will be created. In this subdirectory "
  17.             "all files will be installed...\n\n"
  18.             @askdir-help)
  19.         (default @default-dest)
  20.         (disk)
  21.      )
  22. )
  23. (SET DestDir    (TACKON DestDir "HCMenu"))
  24. (SET @default-dest DestDir)
  25. (MAKEDIR    DestDir (infos))
  26. ;----------------------- Opvragen van te installeren items -------------------
  27. (SET Sel_Menu     0)
  28. (SET Sel_Edit     1)
  29. (SET Sel_Example 2)
  30. (SET Sel_Libs    3)
  31. (SET InstallMask
  32.     (ASKOPTIONS
  33.         (prompt "Please select what to install")
  34.         (help   "Now you can select what you want to install in the \""
  35.             DestDir "\" directory:\n\n"
  36.             "HCMenu V1.8        - The menu and the documents.\n"
  37.             "HCMenuEditor V1.1  - The MenuEditor and documents.\n"
  38.             "Example Menus      - Some menufile examples.\n"
  39.             "Libraries          - Some external libraries\n\n"
  40.             "NOTE: The libraries installed are publicdomain libraries "
  41.             "I don not guarranty to have the latest version!\n\n"
  42.              @askoptions-help)
  43.         (choices "HCMenu V1.8" "HCMenuEditor V1.0" "Example menus" "libraries")
  44.         (default %1111)
  45.     )
  46. )
  47. (IF (NOT InstallMask)
  48.     (SET Einde "Nothing to install!?? In that case: I'm ready.")
  49. )
  50. ;----------------------- Vragen overschrijven bestaand environment  ----------
  51. (IF (OR(EXISTS "ENVARC:HCMenu/FirstMenu")(EXISTS "ENVARC:HCMe/MenuPath"))
  52. (
  53.     (SET NewEnvArc
  54.         (ASKBOOL
  55.             (prompt    "An HCMenu/HCMenuEditor environment was found! "
  56.                 "Delete it and install a new environment?")
  57.             (help    "Both the HCMenu and the HCMenuEditor use environment "
  58.                 "variables to store information. Probably these variables "
  59.                 "are already used by an other HCMenu or HCMenuEditor "
  60.                 "installation.\nNow you may decide if the old environment "
  61.                 "should be deleted by installing the new environment, or "
  62.                 "if you want to keep the old environment.\n\nPS: When the "
  63.                 "new environment uses more variables and you chose for keeping "
  64.                 "the old environment, the new ones are added anyway. This will "
  65.                 "make the upgrading to a new environment friendlier...")
  66.             (choices "Delete & Install" "Keep the old")
  67.         )
  68.     )
  69. ))
  70. ;=============================================================================
  71. ;======================= Installeren van het HCMenu ==========================
  72. ;=============================================================================
  73.  
  74. (IF (IN InstallMask Sel_Menu)
  75. (
  76.     (COPYLIB
  77.         (prompt    "Copying the HCMenu executable")
  78.         (help    @copylib-help)
  79.         (source "Program/HCMenu")
  80.         (dest    DestDir)
  81.         (infos)
  82.         (confirm)
  83.         (optional "force")
  84.         (optional "askuser")
  85.     )
  86.     (MAKEDIR
  87.         (TACKON DestDir "Doc")
  88.         (infos)
  89.     )
  90.     (COPYFILES
  91.         (prompt    "Copying the English HCMenu documents")
  92.         (help    @copyfiles-help)
  93.         (source "Doc/English/HCMenu.Doc")
  94.         (dest    (TACKON DestDir "Doc/English"))
  95.         (infos)
  96.         (optional "force")
  97.         (optional "askuser")
  98.     )
  99.     (COPYFILES
  100.         (prompt    "Copying the Dutch HCMenu documents")
  101.         (help    @copyfiles-help)
  102.         (source "Doc/Nederlands/HCMenu.Doc")
  103.         (dest    (TACKON DestDir "Doc/Nederlands"))
  104.         (infos)
  105.         (optional "force")
  106.         (optional "askuser")
  107.     )
  108.     (SET Einde "HCMenu V1.8 was installed succesfully.\n")
  109.  
  110. ;----------------------- Aanmaken van FirstMenu-prefs van HCMenu -------------
  111.  
  112.     (MAKEDIR
  113.         (TACKON DestDir "MenuFiles")
  114.         (infos)
  115.     )
  116.  
  117.  
  118.     (IF (OR NewEnvArc (NOT(EXISTS "ENVARC:HCMenu/FirstMenu")))
  119.     (
  120.         (MAKEDIR "ENVARC:HCMenu")
  121.         (IF (EXISTS "ENVARC:HCMenu/FirstMenu")
  122.             (DELETE    "ENVARC:HCMenu/FirstMenu"
  123.                 (prompt    "HCMenu environment file already exists!")
  124.                 (optional "force")
  125.                 (optional "askuser")
  126.             )
  127.         )
  128.         (TEXTFILE
  129.             (prompt    "Setting up HCMenu environment")
  130.             (dest    "ENVARC:HCMenu/FirstMenu")
  131.             (append    (TACKON DestDir "MenuFiles/Main.Menu"))
  132.         )
  133.         (SET Einde (CAT Einde "including the HCMenu environment.\n\n"))
  134.     ))
  135.  
  136. ;----------------------- Aanmaken van Editor-prefs van HCMenu ----------------
  137.  
  138.     (IF (IN InstallMask Sel_Edit)
  139.     (
  140.         (IF (OR NewEnvArc (NOT(EXISTS "ENVARC:HCMenu/Editor")))
  141.         (
  142.             (IF (EXISTS "ENVARC:HCMenu/Editor")
  143.                 (DELETE    "ENVARC:HCMenu/Editor"
  144.                     (prompt    "HCMenu environment file already exists!")
  145.                     (optional "force")
  146.                     (optional "askuser")
  147.                 )
  148.             )
  149.             (TEXTFILE
  150.                 (prompt    "Setting up HCMenu environment")
  151.                 (dest    "ENVARC:HCMenu/Editor")
  152.                 (append    (TACKON DestDir "HCMenuEditor"))
  153.             )
  154.         ))
  155.     ))
  156. ))
  157.  
  158. ;=============================================================================
  159. ;======================= Installeren van de MenuEditor =======================
  160. ;=============================================================================
  161.  
  162. (IF (< KickVer 36)
  163. (
  164.     (SET Result
  165.         (ASKBOOL
  166.             (prompt    "The HCMenuEditor needs KickStart 2.0 or higher! "
  167.                 "Install it anyway?")
  168.             (help    "The HCMenuEditor is about to be installed on a "
  169.                 "machine using a V" KickVer " KickStart. Onfortunately "
  170.                 "the HCMenuEditor needs Kickstart V36 or higher. Since the "
  171.                 "HCMenuEditor will not work on this machine it is "
  172.                 "up to you to decide to install or not...")
  173.             (choices "Install" "Cancel")
  174.  
  175.         )
  176.     )
  177.     (IF (NOT Result)
  178.         (SET Einde (CAT Einde    "HCMenuEditor V1.0 was NOT installed!\n"
  179.                     "It needs KickStart 2.0 or higher!\n\n")
  180.         )
  181.     )
  182. ))
  183. (IF (AND (IN InstallMask Sel_Edit) Result)
  184. (
  185.     (COPYLIB
  186.         (prompt    "Copying the HCMenuEditor executable")
  187.         (help    @copylib-help)
  188.         (source "Program/HCMenuEditor")
  189.         (dest    DestDir)
  190.         (infos)
  191.         (confirm)
  192.         (optional "force")
  193.         (optional "askuser")
  194.     )
  195.     (MAKEDIR
  196.         (TACKON DestDir "Doc")
  197.         (infos)
  198.     )
  199.     (MAKEDIR
  200.         (TACKON DestDir "MenuFiles")
  201.         (infos)
  202.     )
  203.     (COPYFILES
  204.         (prompt    "Copying the English HCMenuEditor documents")
  205.         (help    @copyfiles-help)
  206.         (source "Doc/English/HCMenuEditor.Guide")
  207.         (dest    (TACKON DestDir "Doc/English"))
  208.         (infos)
  209.         (optional "force")
  210.         (optional "askuser")
  211.     )
  212.     (COPYFILES
  213.         (prompt    "Copying the Dutch HCMenueditor documents")
  214.         (help    @copyfiles-help)
  215.         (source "Doc/Nederlands/HCMenuEditor.Guide")
  216.         (dest    (TACKON DestDir "Doc/Nederlands"))
  217.         (infos)
  218.         (optional "force")
  219.         (optional "askuser")
  220.     )
  221.     (IF (= @language "nederlands")
  222.         (SET DefTaal 1)
  223.     )
  224.     (SET DocTaal 
  225.         (ASKCHOICE
  226.             (prompt    "Install which on-line help language?")
  227.             (help    "Here you can select the language used in the "
  228.                 "on-line help of the HCMenuEditor. \n\n"
  229.                 @askchoice-help)
  230.             (choices "English" "Nederlands")
  231.             (default DefTaal)
  232.         )
  233.     )
  234.     (SET Taal_UK 0)
  235.     (SET Taal_NL 1)
  236.     (IF (= DocTaal Taal_UK)
  237.         (COPYFILES
  238.             (prompt    "Installing the English HCMenuEditor on-line help")
  239.             (help    @copyfiles-help)
  240.             (source "Doc/English/HCMenuEditor.Guide")
  241.             (dest    DestDir)
  242.             (newname  "Me.Guide")
  243.             (optional "force")
  244.             (optional "askuser")
  245.         )
  246.     )
  247.     (IF (= DocTaal Taal_NL)
  248.         (COPYFILES
  249.             (prompt    "Installing the Dutch HCMenuEditor on-line help")
  250.             (help    @copyfiles-help)
  251.             (source "Doc/Nederlands/HCMenuEditor.Guide")
  252.             (dest    DestDir)
  253.             (newname  "Me.Guide")
  254.             (optional "force")
  255.             (optional "askuser")
  256.         )
  257.     )
  258.     (SET Einde (CAT Einde "HCMenuEditor V1.0 was installed succesfully.\n"))
  259.  
  260. ;----------------------- Aanmaken van MenuPath-prefs van HCMenu ----------------
  261.  
  262.     (IF (OR NewEnvArc (NOT(EXISTS "ENVARC:HCMe/MenuPath")))
  263.     (
  264.         (MAKEDIR "ENVARC:HCMe")
  265.         (IF (EXISTS "ENVARC:HCMe/MenuPath")
  266.             (DELETE    "ENVARC:HCMe/MenuPath"
  267.                 (optional "force")
  268.                 (optional "askuser")
  269.             )
  270.         )
  271.         (TEXTFILE
  272.             (prompt    "Setting up HCMenuEditor environment")
  273.             (dest    "ENVARC:HCMe/MenuPath")
  274.             (append    (TACKON DestDir "MenuFiles"))
  275.         )
  276.     ))
  277.  
  278. ;----------------------- Aanmaken van MenuPattern-prefs van HCMenu ----------------
  279.  
  280.     (IF (OR NewEnvArc (NOT(EXISTS "ENVARC:HCMe/MenuPattern")))
  281.     (
  282.         (IF (EXISTS "ENVARC:HCMe/MenuPattern")
  283.             (DELETE    "ENVARC:HCMe/MenuPattern"
  284.                 (optional "force")
  285.                 (optional "askuser")
  286.             )
  287.         )
  288.         (TEXTFILE
  289.             (prompt    "Setting up HCMenuEditor environment")
  290.             (dest    "ENVARC:HCMe/MenuPattern")
  291.             (append    "#?.Menu")
  292.         )
  293.     ))
  294.  
  295.     (SET Einde (CAT Einde "including the HCMenuEditor environment.\n\n"))
  296. ))
  297.  
  298. ;=============================================================================
  299. ;======================= Installeren van de MenuExamples =====================
  300. ;=============================================================================
  301.  
  302. (IF (IN InstallMask Sel_Example)
  303. (
  304.     (MAKEDIR
  305.         (TACKON DestDir "MenuFiles")
  306.         (infos)
  307.     )
  308.     (COPYFILES
  309.         (prompt    "Copying the Example menus")
  310.         (help    @copyfiles-help)
  311.         (source "Examples")
  312.         (dest    (TACKON DestDir "MenuFiles"))
  313.         (all)
  314.         (infos)
  315.         (optional "force")
  316.         (optional "askuser")
  317.     )
  318.  
  319.     (SET Einde (CAT Einde "Example MenuFiles were installed succesfully.\n\n"))
  320. ))
  321.  
  322. ;=============================================================================
  323. ;======================= Installeren van enkele bibliotheken =================
  324. ;=============================================================================
  325.  
  326. (IF (IN InstallMask Sel_Libs)
  327. (
  328.     (COPYLIB
  329.         (prompt    "Copying Reqtools.library")
  330.         (help    @copylib-help)
  331.         (source "libs/ReqTools.Library")
  332.         (dest    "LIBS:")
  333.         (infos)
  334.         (confirm)
  335.         (optional "force")
  336.         (optional "askuser")
  337.     )
  338.     (COPYLIB
  339.         (prompt    "Copying PowerPacker.library")
  340.         (help    @copylib-help)
  341.         (source "libs/PowerPacker.Library")
  342.         (dest    "LIBS:")
  343.         (infos)
  344.         (confirm)
  345.         (optional "force")
  346.         (optional "askuser")
  347.     )
  348. ))
  349.  
  350.  
  351. (EXIT Einde)
  352.